﻿Public Class WfConsEditarCli
    Inherits System.Web.UI.Page
    Dim cod_cli As Integer
    Dim despLogado As New Despachante

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        despLogado = Session("DespLogado")
        If IsPostBack = False Then
        End If
    End Sub

    Private Sub WfConsEditarCli_PreRender(sender As Object, e As System.EventArgs) Handles Me.PreRender
        If Session("DespLogado") Is Nothing Then
            Response.Redirect("/Screens/WF1.aspx")
        End If
    End Sub

    Public Sub Populatodos()
        Dim clienteDao As New ClienteDAO
        GvClientes.AutoGenerateColumns = False
        GvClientes.DataSource = clienteDao.clienteJoinTodos(despLogado)
        GvClientes.DataBind()
    End Sub


    Protected Sub buscar_Click(sender As Object, e As EventArgs) Handles buscar.Click
        Dim objCliDao As New ClienteDAO
        Dim objCli As New Cliente
        Dim dados As New DataTable
        lbmsg.Text = ""
        GvClientes.DataBind()

        If DpTiposBusca.SelectedValue = "Nome" Then

            Try
                If tbbusca.Text <> "" Then
                    objCli.NomeCli = tbbusca.Text
                    GvClientes.AutoGenerateColumns = False
                    dados = objCliDao.clienteJoinNome(objCli, despLogado)
                    If dados.Rows.Count <> 0 Then
                        GvClientes.DataSource = dados
                        GvClientes.DataBind()
                    Else
                        lbmsg.ForeColor = Drawing.Color.Red
                        lbmsg.Text = "Nenhum resultado encontrado !"
                        Alterar.Visible = False
                    End If
                Else
                    lbmsg.ForeColor = Drawing.Color.Red
                    lbmsg.Text = "Digite um Nome !"
                End If
            Catch ex As Exception
                lbmsg.ForeColor = Drawing.Color.Red
                lbmsg.Text = "Digite apenas Letras !"
            End Try

        End If

        If DpTiposBusca.SelectedValue = "Código" Then

            Try
                If tbbusca.Text <> "" Then
                    objCli.CodCli = tbbusca.Text
                    GvClientes.AutoGenerateColumns = False
                    dados = objCliDao.clienteJoinCodigo(objCli, despLogado)
                    If dados.Rows.Count <> 0 Then
                        GvClientes.DataSource = dados
                        GvClientes.DataBind()
                    Else
                        lbmsg.ForeColor = Drawing.Color.Red
                        lbmsg.Text = "Nenhum resultado encontrado !"
                        Alterar.Visible = False
                    End If
                Else
                    lbmsg.ForeColor = Drawing.Color.Red
                    lbmsg.Text = "Digite um Código !"
                End If
            Catch ex As Exception
                lbmsg.ForeColor = Drawing.Color.Red
                lbmsg.Text = "Digite apenas números !"
            End Try

        End If

        If DpTiposBusca.SelectedValue = "Cpf/Cnpj" Then

            Try
                If tbbusca.Text <> "" Then
                    objCli.CpfCnpjCli = tbbusca.Text
                    GvClientes.AutoGenerateColumns = False
                    dados = objCliDao.clienteJoinCpf(objCli, despLogado)
                    If dados.Rows.Count <> 0 Then
                        GvClientes.DataSource = dados
                        GvClientes.DataBind()
                    Else
                        lbmsg.ForeColor = Drawing.Color.Red
                        lbmsg.Text = "Nenhum resultado encontrado !"
                        Alterar.Visible = False
                    End If
                Else
                    lbmsg.ForeColor = Drawing.Color.Red
                    lbmsg.Text = "Digite um Cpf ou Cnpj !"
                End If
            Catch ex As Exception
            End Try

        End If

        If DpTiposBusca.SelectedValue = "Todos" Then
            Populatodos()
        End If


    End Sub

    Protected Sub GvClientes_PageIndexChanging(sender As Object, e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GvClientes.PageIndexChanging
        GvClientes.PageIndex = e.NewPageIndex
        Populatodos()
    End Sub

    Protected Sub Alterar_Click(sender As Object, e As EventArgs) Handles Alterar.Click

        Try
            cod_cli = GvClientes.SelectedRow.Cells(1).Text
            Response.Redirect("~/ScreensDesp/WfCadCli.aspx?CodCli=" & cod_cli)
        Catch ex As Exception
            lbmsg.ForeColor = Drawing.Color.Red
            lbmsg.Text = "Selecione um Cliente !"
        End Try

    End Sub

    Protected Sub GvClientes_SelectedIndexChanged(sender As Object, e As EventArgs) Handles GvClientes.SelectedIndexChanged
        Alterar.Visible = True
    End Sub
End Class